home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / biz / dbase / AB.lha / AB / ARexx / simple_list.rexx < prev   
OS/2 REXX Batch file  |  1992-09-03  |  561b  |  32 lines
  1. /* Program to list the names of everyone on the current project. */
  2.  
  3. /* Make sure AB is running. */
  4. if ~show(PORTS, 'AB_AREXX') then do
  5.     say 'AB is not currently running!  Please start it and try again.'
  6.     exit
  7.     end
  8.  
  9. address 'AB_AREXX'
  10.  
  11. options results
  12.  
  13. END = 0
  14.  
  15. /* Go to the first entry. */
  16. 'FIRST_ENTRY'
  17.  
  18. /* Continue until we have reached the end of the project. */
  19. do while END = 0
  20.  
  21.     /* Print the name of this entry. */
  22.     'GET_ENTRY_DETAILS 1'
  23.     say 'Name: 'RESULT
  24.  
  25.     /* Go to the next entry. */
  26.     'NEXT_ENTRY'
  27.     END = RC
  28.  
  29.     end
  30.  
  31. exit
  32.